'
'tek_hed's credit scrolly thingie
'tek_hed@cybermail.net | http://tek-hed.home.ml.org
'
'use as you like
'
'(actually, if you DO use this in some production then i hope that you have
' enough brain capacity to realize the you did NOT code the production 100%
' by yourself. just email me if you use it. thanx.)
'
'

DEFINT C-Z '(a and b are the arrays used to scroll the txt)
SCREEN 13

'make a palette
FOR n% = 0 TO 63
 OUT &H3C8, n% + 100
 OUT &H3C9, n% \ 3
 OUT &H3C9, 0
 OUT &H3C9, n%
NEXT

CONST pi! = 3.1415926# / 180
DIM a(7820), b(85)
'make the luts
DIM sind!(-360 TO 199)
DIM cosd!(-360 TO 199)
FOR n% = -360 TO 0 + 199
 sind!(n%) = 31.5 * (1 + SIN(n% * pi!))
 cosd!(n%) = 31.5 * (1 + COS(n% * pi!))
NEXT

DO
'+-----------------------------------+
'|                                   |
'| put your any of your code in here |
'|                                   |
'+-----------------------------------+

g% = g% - 5
IF g% < -360 THEN g% = 0

FOR y% = 0 TO 199
 sinY% = sind!(g% + y%)
 cosY% = cosd!(g% + y%)
 IF y% = 0 THEN
  LINE (0, 0)-(sinY%, 0), 0
  LINE (320, 0)-(320 - cosY%, 0), 0
  LINE (sinY%, 0)-(320 - cosY%, 0), 4
 ELSEIF y% = 199 THEN
  LINE (0, 199)-(sinY%, 199), 0
  LINE (320, 199)-(320 - cosY%, 199), 0
  LINE (sinY%, 199)-(320 - cosY%, 199), 4
 ELSE
  LINE (0, y%)-(sinY%, y%), sinY% + 100
  LINE (sinY%, y%)-(63, y%), 0

  LINE (320, y%)-(320 - cosY%, y%), cosY% + 100
  LINE (320 - cosY%, y%)-(257, y%), 0
 END IF
NEXT

GET (71, 8)-(240, 191), a
PUT (71, 7), a, PSET

wentdown% = (wentdown% + 1) MOD 8
FOR x% = 71 TO 240
 FOR y% = 8 TO 14
  c% = POINT(x%, y%)
  IF c% > 0 THEN PSET (x%, y%), c% - 2
 NEXT

 FOR y% = 199 - 13 - 11 TO 199 - 8 - 10
  c% = POINT(x%, y%)
  IF c% > 15 THEN PSET (x%, y%), c% + 2
 NEXT
NEXT

IF wentdown% = 0 THEN
 LOCATE 24, 10
 totalwritten = totalwritten + 1
 IF totalwritten >= 18 THEN totalwritten = 0: RESTORE beginagain:
 READ d$
 COLOR 16
 PRINT d$;
END IF

LOOP

'2..24 (up->down)
'10..30 (left->right)

beginagain:
DATA"                    "
DATA"      WELL PPL!     "
DATA"                    "
DATA"     HERE iT iS!    "
DATA"                    "
DATA"                    "
DATA"      tek_hed's     "
DATA"                    "
DATA"       CREDiT       "
DATA"                    "
DATA"       SCROLLY      "
DATA"                    "
DATA"       THINGiE      "
DATA"                    "
DATA"(the text has to be "
DATA"12345678901234567890"
DATA"20 char wide max.   "
DATA"but indefinetly long"
DATA"                    "